From: Richard M. Stallman Date: Fri, 21 May 1993 17:25:50 +0000 (+0000) Subject: (outline-minor-mode): Make var permanent local in all buffers. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96126 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=326c43dc29cb7e3bcd0cfc152443bce71b768e16;p=emacs.git (outline-minor-mode): Make var permanent local in all buffers. Give the command a doc string. --- diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el index 7867652ea62..c0241102d1c 100644 --- a/lisp/textmodes/ooutline.el +++ b/lisp/textmodes/ooutline.el @@ -59,6 +59,8 @@ in the file it applies to.") (defvar outline-minor-mode nil "Non-nil if using Outline mode as a minor mode of some other mode.") +(make-variable-buffer-local 'outline-minor-mode) +(put 'outline-minor-mode 'permanent-local t) (setq minor-mode-alist (append minor-mode-alist (list '(outline-minor-mode " Outl")))) @@ -135,6 +137,9 @@ Turning on outline mode calls the value of `text-mode-hook' and then of minor-mode-map-alist))) (defun outline-minor-mode (&optional arg) + "Toggle Outline minor mode. +With arg, turn Outline minor mode on if arg is positive, off otherwise. +See the command `outline-mode' for more information on this mode." (interactive "P") (setq outline-minor-mode (if (null arg) (not outline-minor-mode)